home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / VEDGE.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  579b  |  35 lines
  1. ;VEDGE  --  lee haralick algorithm
  2. ;           calculates edge according to Paris conference 1986
  3. ;syntax:    *vedge
  4. ;expects:   image in a
  5. ;result:    image in p or h, depending on configuration
  6. ;P.Verbeek  (TU-Delft)  14-1-87 (modified 9-5-90: rje)
  7. ;*********************************************************************
  8.  
  9. IMAGE img
  10.  
  11. if (((improp fg) & DIS_BIT) == DIS_BIT)
  12.   img = "p"
  13. else
  14.   img = "h"
  15. endif
  16.  
  17. dis img
  18.  
  19. dest img
  20. show img
  21. dest q
  22. min a 3
  23. sub a q   ;orig - min
  24. dest r
  25. max a 3
  26. sub r a   ;max - orig
  27. dest img
  28. sel r < q
  29. cstr
  30. stop
  31.  
  32.  
  33.  
  34.  
  35.